home *** CD-ROM | disk | FTP | other *** search
- * *********************************************************
- * *
- * * 08/11/94 9.SPR 20:42:02
- * *
- * *********************************************************
- * *
- * * Duncan Halstead
- * *
- * * Copyright (c) 1994 CD-ROM, Inc.
- * * 603 Park Point Dr.
- * * Golden, CO 80401
- * *
- * * Description:
- * * This program was automatically generated by GENSCRN.
- * *
- * *********************************************************
-
-
- #REGION 0
- REGIONAL m.currarea, m.talkstat, m.compstat
-
- IF SET("TALK") = "ON"
- SET TALK OFF
- m.talkstat = "ON"
- ELSE
- m.talkstat = "OFF"
- ENDIF
- m.compstat = SET("COMPATIBLE")
- SET COMPATIBLE FOXPLUS
-
- m.rborder = SET("READBORDER")
- SET READBORDER ON
-
- * *********************************************************
- * *
- * * Windows Window definitions
- * *
- * *********************************************************
- *
-
- IF NOT WEXIST("_qsh18da62")
- DEFINE WINDOW _qsh18da62 ;
- AT 0.000, 0.000 ;
- SIZE 29.769,55.400 ;
- TITLE "Flatware" ;
- FONT "MS Sans Serif", 8 ;
- FLOAT ;
- CLOSE ;
- MINIMIZE ;
- SYSTEM
- MOVE WINDOW _qsh18da62 CENTER
- ENDIF
-
-
- * *********************************************************
- * *
- * * 9/Windows Screen Layout
- * *
- * *********************************************************
- *
-
- #REGION 1
- IF WVISIBLE("_qsh18da62")
- ACTIVATE WINDOW _qsh18da62 SAME
- ELSE
- ACTIVATE WINDOW _qsh18da62 NOSHOW
- ENDIF
- @ 0.000,0.000 SAY (LOCFILE("bmp\9.bmp","BMP|ICO|PCT|ICN", "Where is 9?" )) BITMAP ;
- SIZE 29.615,55.400 ;
- STYLE "T"
- @ 4.538,1.200 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 7.769,24.400,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh18daww()
- @ 12.615,1.800 GET bnn ;
- PICTURE "@*IHN " ;
- SIZE 8.769,21.600,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh18db34()
- @ 21.462,1.000 GET cde ;
- PICTURE "@*IHN " ;
- SIZE 7.692,24.000,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh18dbem()
- @ 2.923,29.000 GET def ;
- PICTURE "@*IHN " ;
- SIZE 7.846,25.000,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh18dbjx()
- @ 12.231,30.600 GET efg ;
- PICTURE "@*IHN " ;
- SIZE 8.308,21.000,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh18dbp8()
- @ 20.923,28.800 GET hij ;
- PICTURE "@*IHN " ;
- SIZE 8.385,24.600,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh18dbuu()
-
- IF NOT WVISIBLE("_qsh18da62")
- ACTIVATE WINDOW _qsh18da62
- ENDIF
-
- READ CYCLE ;
- DEACTIVATE .T.
-
- RELEASE WINDOW _qsh18da62
-
- #REGION 0
-
- SET READBORDER &rborder
-
- IF m.talkstat = "ON"
- SET TALK ON
- ENDIF
- IF m.compstat = "ON"
- SET COMPATIBLE ON
- ENDIF
-
-
- * *********************************************************
- * *
- * * _QSH18DAWW abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 9, Record Number: 4
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 1
- * *
- * *********************************************************
- *
- FUNCTION _qsh18daww && abc VALID
- #REGION 1
- USE CLOSEUP
- GOTO 51
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH18DB34 bnn VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 9, Record Number: 5
- * * Variable: bnn
- * * Called By: VALID Clause
- * * Snippet Number: 2
- * *
- * *********************************************************
- *
- FUNCTION _qsh18db34 && bnn VALID
- #REGION 1
- USE CLOSEUP
- GO 52
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH18DBEM cde VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 9, Record Number: 6
- * * Variable: cde
- * * Called By: VALID Clause
- * * Snippet Number: 3
- * *
- * *********************************************************
- *
- FUNCTION _qsh18dbem && cde VALID
- #REGION 1
- USE CLOSEUP
- GO 53
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH18DBJX def VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 9, Record Number: 7
- * * Variable: def
- * * Called By: VALID Clause
- * * Snippet Number: 4
- * *
- * *********************************************************
- *
- FUNCTION _qsh18dbjx && def VALID
- #REGION 1
- USE CLOSEUP
- GO 54
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH18DBP8 efg VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 9, Record Number: 8
- * * Variable: efg
- * * Called By: VALID Clause
- * * Snippet Number: 5
- * *
- * *********************************************************
- *
- FUNCTION _qsh18dbp8 && efg VALID
- #REGION 1
- USE CLOSEUP
- GO 55
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH18DBUU hij VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 9, Record Number: 9
- * * Variable: hij
- * * Called By: VALID Clause
- * * Snippet Number: 6
- * *
- * *********************************************************
- *
- FUNCTION _qsh18dbuu && hij VALID
- #REGION 1
- USE CLOSEUP
- GO 56
- DO ZOOM.SPR